<?php
    include_once '../../../../controlador/php/conexion/Conexion10.php';
    $con = new Conexion10();
    
    $dato= $_REQUEST['dat'];
    $filtro = $_REQUEST['dat2'];
    $f1 = $_REQUEST['f1'];
    $f2 = $_REQUEST['f2'];
    
    $fecha1 = date('Y-m-d 00:00:00.000',strtotime($f1));
    $fecha2 = date('Y-m-d 23:59:00.000',strtotime($f2));
    
    if($filtro == "1"){
        $consulta = "ADNINGRESO.AINCONSEC = '".$dato."'";
        
    }else if ($filtro == "2"){
        $consulta = "GENPACIEN.PACNUMDOC = '".$dato."'";
        
    }else if($filtro == "3"){
        $consulta = "SLNORDSER.SOSESTADO = '".$dato."' and HCNSOLEXA.HCSFECSOL Between '".$fecha1."' And '".$fecha2."'";
    }
    else if($filtro == "4"){
        $consulta = "HPNDEFCAM.HCACODIGO = '".$dato."'";
    }else if($filtro == "5"){
        $consulta = "HPNSUBGRU.OID =".$dato;
    }else if($filtro == "6"){
        $consulta = "segimagenes.solcita = 1 and  segimagenes.fecsolcita Between '".$fecha1."' and '".$fecha2."'";
    }else if($filtro == "7"){
        $consulta = "segimagenes.facturado = 1 and  segimagenes.fecfactu Between '".$fecha1."' and '".$fecha2."'";
    }else if($filtro == "8"){
        $consulta = "segimagenes.facturado is null and  HCNSOLEXA.HCSFECSOL Between '".$fecha1."' and '".$fecha2."'";
    }else if($filtro == "9"){
        $consulta = "(HCNSOLEXA.HCSFECSOL > CONVERT(DATETIME, GETDATE() - 5, 102)) And b.OID = '".$dato."'";
    }
    $listado = "SELECT b.OID,b.GASNOMBRE as area_examen,HCNSOLEXA.OID,ADNINGRESO.AINCONSEC AS INGRESO, HCNSOLEXA.HCSCANTI AS CANTIDAD,
                CONVERT(NVARCHAR(2000),HCNSOLEXA.HCSOBSERV) AS OBSERVACIONES,HCNSOLEXA.HCSFECSOL AS FECHA_SOLICITUD,
                HCNFOLIO.HCNUMFOL AS NUM_FOLIO,GENSERIPS.SIPCODIGO AS CODIGO, ltrim(rtrim(GENSERIPS.SIPNOMBRE)) AS MUESTRA,
                GENPACIEN.PACNUMDOC AS DOCUMENTO,RTrim(GENPACIEN.PACPRINOM +' '+
                GENPACIEN.PACSEGNOM +' '+ GENPACIEN.PACPRIAPE +' '+ GENPACIEN.PACSEGAPE) AS NOM_PACIENTE,
                HPNDEFCAM.HCACODIGO AS CAMA,GENARESER.GASCODIGO, GENARESER.GASNOMBRE,GENMEDICO.GMENOMCOM AS MEDICO,Case
                When HCNSOLEXA.HCSESTADO = '0' Then 'URGENTE' Else 'RUTINARIO'
                End ESTADO, GENPACIEN.GPAFECNAC,Case
                When ADNINGRESO.AINTIPING = '1' Then 'AMBULATORIO' Else 'HOSPITALARIO'
                End CLASE_INGRESO,Case When ADNINGRESO.AINURGCON = '0' Then 'URGENCIAS'
                When ADNINGRESO.AINURGCON = '1' Then 'CONSULTA_EXTERNA'
                When ADNINGRESO.AINURGCON = '2' Then 'NACIDO_HOSPITAL'
                When ADNINGRESO.AINURGCON = '3' Then 'REMITIDO'
                When ADNINGRESO.AINURGCON = '4' Then 'HOSPI_URGENCIAS'
                When ADNINGRESO.AINURGCON = '5' Then 'HOSPITALIZACIÓN'
                When ADNINGRESO.AINURGCON = '6' Then 'IMAGENES'
                When ADNINGRESO.AINURGCON = '7' Then 'LABORATORIO'
                End INGRESO_POR,Case SLNORDSER.SOSESTADO When 0 Then 'REGISTRADO'
                When 1 Then 'CONFIRMADO' When 2 Then 'ANULADO'
                End As ESTADOORDEN,CONVERT(NVARCHAR(100),SLNORDSER.SOSDESORD) AS ORDEN_SERVICIO,
                SLNORDSER.SOSORDSER,segfecindi,segestado,trestado,trfecha,tmestado,tmfecha,inestado,infecha,asigfecha,asigobserv,
                solcita,fecsolcita,usu_oidsc,obsesolcita,facturado,usu_oidf,fecfactu,solautori,fecsolau,usu_oidsa,
                autorizar,fecauto,usu_oidau
                From GENPACIEN Inner Join
                ADNINGRESO On GENPACIEN.OID = ADNINGRESO.GENPACIEN Inner Join
                HCNFOLIO On ADNINGRESO.OID = HCNFOLIO.ADNINGRESO Inner Join
                GENMEDICO On HCNFOLIO.GENMEDICO = GENMEDICO.OID Inner Join
                HCNSOLEXA On HCNSOLEXA.HCNFOLIO = HCNFOLIO.OID Inner Join
                GENSERIPS On HCNSOLEXA.GENSERIPS = GENSERIPS.OID Inner Join
                SLNSERHOJ On HCNSOLEXA.SLNSERHOJ = SLNSERHOJ.OID Inner Join
                SLNSERPRO On SLNSERHOJ.OID = SLNSERPRO.OID Inner Join
                SLNORDSER On SLNSERPRO.SLNORDSER1 = SLNORDSER.OID And SLNSERPRO.ADNINGRES1 =
                SLNORDSER.ADNINGRES1 Left Outer Join
                HPNESTANC On ADNINGRESO.OID = HPNESTANC.ADNINGRES Left Outer Join
                HPNDEFCAM On HPNESTANC.HPNDEFCAM = HPNDEFCAM.OID
                 left Outer join HPNGRUPOS on HPNDEFCAM.HPNGRUPOS = HPNGRUPOS.OID
                 left Outer join HPNSUBGRU ON HPNSUBGRU.OID = HPNDEFCAM.HPNSUBGRU 
                 left Outer join GENARESER ON GENARESER.OID = HPNSUBGRU.GENARESER 
                 left Outer join planillaUsuario..segimagenes on HCNSOLEXA.OID  = planillaUsuario..segimagenes.hcnsolexa
                 left Outer join planillaUsuario..segtranslado on HCNSOLEXA.OID = planillaUsuario..segtranslado.hcnsolexa
                 left Outer join planillaUsuario..segtomado on HCNSOLEXA.OID = planillaUsuario..segtomado.hcnsolexa
                 left Outer join planillaUsuario..seginterpre on HCNSOLEXA.OID = planillaUsuario..seginterpre.hcnsolexa
                 left Outer join planillaUsuario.. segasigcita on HCNSOLEXA.OID = planillaUsuario..segasigcita.hcnsolexa
                 left outer join  GENARESER as b on GENSERIPS.GENARESER1 = b.OID
                Where 
               GENSERIPS.GENARESER1  IN (6,7,8,9,10,11,12,14) And HPNESTANC.HESFECSAL Is Null  and ".$consulta."      
                Order By HCNSOLEXA.HCSFECSOL DESC";
   $res = $con->query($listado);
   
    while($re = mssql_fetch_array($res)){
       
        $lista[] = array_map(utf8_encode,$re);
         
    }
    print_r(json_encode($lista));
    $con->cerrarConexion();
    
?>
